home *** CD-ROM | disk | FTP | other *** search
/ Compute! Gazette 1984 June / 1984-06.d64 / scroll 64 (.txt) < prev    next >
Commodore BASIC  |  2022-09-20  |  2KB  |  34 lines
  1. 5 rem  the following rem statements are for the checksum program
  2. 6 rem to use the checksum program simply erase all rems (except lines 5 & 6)
  3. 7 rem  and type run
  4. 10 data11507,12573,12522,11001
  5. 20 rem a=49152:b=84:c=a+b:fori=1to4:d=0:readx:forj=atoc:d=d+peek(j):next
  6. 30 rem ifd<>xthenprinttab(19)"error in block #"i:goto50
  7. 40 rem print"block #"i"is correct"
  8. 50 rem a=c+1:c=a+b:next:end
  9. 60 fori=1to4:reada:next:readlo,hi:fori=lotohi:readx:pokei,x:next:end
  10. 5000 data 49152, 49528
  11. 5010 data 174,114,193,224,3,144,3,76,117,192,188,114,193,140,121,193,174
  12. 5020 data 118,193,232,202,32,30,193,172,121,193,173,119,193,201,2,208,10
  13. 5030 data 169,32,72,173,33,208,72,76,50,192,177,90,72,177,92,72,204
  14. 5040 data 116,193,240,20,200,177,90,72,177,92,136,145,92,104,145,90,200
  15. 5050 data 204,116,193,208,238,240,18,136,177,90,72,177,92,200,145,92,104
  16. 5060 data 145,90,136,204,115,193,208,238,173,119,193,201,0,208,5,104,104
  17. 5070 data 76,111,192,104,145,92,104,145,90,236,117,193,208,160,96,172,116
  18. 5080 data 193,200,189,114,193,170,32,30,193,173,120,193,201,2,208,19,136
  19. 5090 data 169,32,153,122,193,173,33,208,153,162,193,204,115,193,208,239,240
  20. 5100 data 16,136,177,90,153,122,193,177,92,153,162,193,204,115,193,208,240
  21. 5110 data 236,117,193,240,37,202,32,30,193,172,116,193,200,136,177,90,72
  22. 5120 data 177,92,32,48,193,145,92,104,145,90,32,56,193,204,115,193,208
  23. 5130 data 234,236,117,193,208,221,240,46,202,206,118,193,232,32,30,193,172
  24. 5140 data 116,193,200,136,32,48,193,177,90,72,177,92,32,56,193,145,92
  25. 5150 data 104,145,90,204,115,193,208,234,236,118,193,208,221,238,118,193,232
  26. 5160 data 32,30,193,173,120,193,201,0,240,20,172,115,193,136,200,185,162
  27. 5170 data 193,145,92,185,122,193,145,90,204,116,193,208,240,96,189,89,193
  28. 5180 data 133,91,24,105,212,133,93,189,64,193,133,90,133,92,96,72,152
  29. 5190 data 24,105,40,168,104,96,72,152,56,233,40,168,104,96,0,40,80
  30. 5200 data 120,160,200,240,24,64,104,144,184,224,8,48,88,128,168,208,248
  31. 5210 data 32,72,112,152,192,4,4,4,4,4,4,4,5,5,5,5,5
  32. 5220 data 5,6,6,6,6,6,6,6,7,7,7,7,7,3,0,4,0
  33. 5230 data 4,1,1
  34.